home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / RS232.ARC / MODEM%a4SET.C < prev    next >
Text File  |  2019-04-13  |  3KB  |  158 lines
  1.  
  2. /*
  3.     MODEMñSET.C  HARDWARE AND LOW-LEVEL SOFTWARE
  4.     SETUP CODE FOR TELECOMUNICATIONS.
  5.  
  6. */
  7.  
  8. #INCLUDE <STDIO.H>
  9. #INCLUDE <DEFN.H>
  10. #INCLUDE <TERM.H>
  11.  
  12. EXTERN UNSIGNED PAUSE();
  13. EXTERN CHAR ╟ET╦EY();
  14.  
  15. /*
  16.   DIAL()  DIAL A SINGLE DIGIT 0..9
  17. */
  18.  
  19. DIAL(NUM)
  20. UNSIGNED NUM;
  21. █
  22.  UNSIGNED REP;
  23.  FOR(REP=0;REP<NUM;REP++)
  24.     █
  25.       ONñHOOK();
  26.       PAUSE(╙╔╪╘┘);    
  27.       OFFñHOOK();
  28.       PAUSE(╞╧╒╥╘┘);
  29.     ▌
  30.  PAUSE(╙╚╧╥╘);
  31.  PAUSE(╠╧╬╟);
  32. ▌
  33.  
  34.  
  35.  
  36.  
  37. /*
  38.    ONñHOOK() 
  39. */
  40.  
  41. ONñHOOK()
  42. █
  43.     POKE(0X0F,0XDD01,(PEEK(0X0F,0XDD01)▀0X20));
  44. ▌
  45.  
  46.  
  47.  
  48. /*
  49.   OFFñHOOK()
  50. */
  51.  
  52. OFFñHOOK()
  53. █
  54.     POKE(0X0F,0XDD03,(PEEK(0X0F,0XDD03)▀0X20));
  55.     POKE(0X0F,0XDD01,(PEEK(0X0F,0XDD01)&0XDF));
  56. ▌
  57.  
  58.  
  59.  
  60.  
  61. /*
  62.     ═ñFLUSH()   CLEAR THE RS-232 ╔NPUT/╧UTPUT BUFFERS IN ┬ANK0
  63.     TO ALL ┌ERO'S (0).
  64. */
  65.  
  66.  
  67. ͤFLUSH()
  68. █
  69.     UNSIGNED POS,BASE;
  70.     BASE = 0X0C00;
  71.     FOR(POS=0;POS<512;POS++)
  72.         POKE(0X0F,BASE+POS,0X00);
  73.  
  74.     POKE(0X0F,0X0A18,00);POKE(0X0F,0X0A19,00);  /* SET RS-232 BUFFER-POINTERS */
  75.     POKE(0X0F,0X0A1A,00);POKE(0X0F,0X0A1B,00);  /* TO SHOW EMPTY BUFFERS      */
  76.  
  77. ▌
  78.  
  79.  
  80. /*
  81.     ADJUST() MODIFY BAUD-RATES 
  82. */
  83.  
  84. ADJUST(RATE)
  85. CHAR RATE;
  86. █
  87.     CHAR COMMAND,
  88.          CONTROL,
  89.          ╚IGHñ┬YTE,
  90.          ╠OWñ┬YTE,
  91.          CH;
  92.     FLOAT ┬AUD,SYSñ├LOCK;
  93.     SYSñ├LOCK = 1.02273E6;
  94.     CONTROL = 0;
  95.     COMMAND = 0;
  96.     ═ñFLUSH();
  97.     IF (RATE ╔╙ñ┼╤╒┴╠ '3')
  98.         █
  99.             ═Oñ╧PEN( 6,0,0,0 ); /* 300 BAUD 1 STOP 8-BITS FULL DUPLEX NO PARITY*/
  100.         ▌  
  101.     ELSE
  102.         █
  103.             ═Oñ╧PEN( 8,0,0,0 ); /* 1200 BAUD SAME AS ABOVE ^  */
  104.         ▌
  105.     PUTC(147);
  106.     PUTS("\N\N   ┬AUD ╥ATE ┴DJUSTMENT...");
  107.     PUTS(" ╒SE ╞1 TO INCREASE BAUD OR ╞3 TO DECRESE IT");
  108.     PUTS(" OR ┼╙├ TO CONTINUE...\N\N\N");
  109.     PUTS("       ╨RESS ╙╨┴├┼...\N");
  110.     WHILE( (CH=╟ET╦EY()) ╬╧╘ñ┼╤╒┴╠ ┼╙├) 
  111.         █
  112.             ╠OWñ┬YTE = PEEK(0X0F,0X0A12);
  113.             ╚IGHñ┬YTE = PEEK(0X0F,0X0A13);
  114.  
  115.             SWITCH(CH)
  116.             █
  117.                 CASE ╞3:  IF (╠OWñ┬YTE <255)
  118.                               ╠OWñ┬YTE++;
  119.                           ELSE
  120.                              █
  121.                               IF (╚IGHñ┬YTE <255)  
  122.                                  █
  123.                                   ╠OWñ┬YTE =0;
  124.                                   ╚IGHñ┬YTE++;  
  125.                                  ▌
  126.                               ELSE
  127.                                  █
  128.                                    ╚IGHñ┬YTE =0;
  129.                                    ╠OWñ┬YTE =0;
  130.                                  ▌ 
  131.                              ▌ ; BREAK;
  132.  
  133.                 CASE ╞1:  IF (╠OWñ┬YTE >0)
  134.                               ╠OWñ┬YTE--;
  135.                           ELSE
  136.                              █
  137.                               IF (╚IGHñ┬YTE >0)  
  138.                                  █
  139.                                   ╠OWñ┬YTE =0;
  140.                                   ╚IGHñ┬YTE--;  
  141.                                  ▌
  142.                               ELSE
  143.                                  █
  144.                                    ╚IGHñ┬YTE =256;
  145.                                    ╠OWñ┬YTE =256;
  146.                                  ▌ 
  147.                              ▌ ; BREAK;
  148.             ▌
  149.         ┬AUD = SYSñ├LOCK / ( 2 * (╚IGHñ┬YTE * 256 + ╠OWñ┬YTE + 100));
  150.         PRINTF("  ┬AUD ╥ATE IS: %04.6F \N%C",┬AUD,145);
  151.         POKE(0X0F,0X0A12,╠OWñ┬YTE);
  152.         POKE(0X0F,0X0A13,╚IGHñ┬YTE);
  153.         ▌
  154. ▌
  155.  
  156.  
  157.  
  158.